home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / listing 5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  701b  |  28 lines
  1. 5 gosub60000:rem tabellen deffinieren
  2. 10 input"was nun ";be$:rem befehl
  3. 20 gosub51000         :rem zerlegung
  4. 30 print:print"be$=";chr$(34);be$;chr$(34):print
  5. 40 fori=1to10
  6. 50 :print"be$(";right$(str$(i),len(str$(i))-1);")=";chr$(34);be$(i);chr$(34)
  7. 60 next:print"anzahl der woerter (wz) :";wz:print
  8. 70 goto10
  9. 51000 rembe$ in be$(1)-be$(10) zerlegen
  10. 51010 fori=1to10:be$(i)="":next
  11. 51020 wz=1
  12. 51030 fori=1tolen(be$)
  13. 51040 :ifmid$(be$,i,1)=" "thengosub51100:goto51060
  14. 51045 :ifwz>10thenprint"eingabe ist zu lang !":i=len(be$)+1:goto51060
  15. 51050 :be$(wz)=be$(wz)+mid$(be$,i,1)
  16. 51060 nexti
  17. 51070 return
  18. 51100 rem au$ woerter aussortieren
  19. 51110 ic=0:fori1=1toaz
  20. 51120 :ifbe$(wz)=au$(i1)thenic=1
  21. 51130 nexti1
  22. 51140 ific=0thenwz=wz+1:return
  23. 51150 be$(wz)="":return
  24. 60000 rem *** tabellen-deffinieren ***
  25. 60005 data der,die,das,den, ,ueber,unter,auf,in
  26. 60010 az=9:fori=1toaz:readau$(i):next
  27. 60015 return
  28.